Imports Sys = System

Namespace Enhancements.Core
    ''' <summary>Represents errors that occur during assertion routines. It is not intended for the common developer to inherit from it.</summary>
    <DebuggerStepThrough()> _
    Public MustInherit Class AssertException
        Inherits Sys.Exception

        Friend Sub New(ByVal _objectName As System.String)
            ObjectName = _objectName
        End Sub

        Private __ObjectName As System.String = Nothing
        ''' <summary>Gets the name of the object that caused this exception.</summary>
        Public Property ObjectName() As System.String
            Get
                Return __ObjectName
            End Get
            Private Set(ByVal _value As System.String)
                __ObjectName = _value
            End Set
        End Property

    End Class
End Namespace
